home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Examples / Plotting - simple / FET function < prev    next >
Text File  |  1996-04-15  |  439b  |  26 lines
  1. function FET;
  2.  
  3. { This function calculates the current-voltage
  4.     characteristics of a MOS-FET }
  5.  
  6. description
  7.   'sel = 0:  Id(Uds)',
  8.   'sel = 1:  Id(Uds) at saturation';
  9.  
  10. defaults
  11.   a[1] := 10,inactive,'Ugs';
  12.   a[2] := 1, inactive,'µCg/L2';
  13.   a[3] := 0, inactive,'sel';
  14.  
  15.  
  16. begin
  17.   if a[3] = 0 then begin
  18.     if x < a[1] then
  19.       y := a[2]*(x*a[1]-sqr(x)/2)
  20.     else
  21.       y := a[2]*sqr(a[1])/2;
  22.   end
  23.   else
  24.     y :=  a[2]*sqr(x)/2;
  25. end;
  26.